home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / D-G / DropInfo ƒ / DI⁄P / DSGlobals.p < prev    next >
Encoding:
Text File  |  1991-12-09  |  1.8 KB  |  67 lines  |  [TEXT/MPS ]

  1. {******************************************************************************
  2. **
  3. **  Project Name:    DropShell
  4. **     File Name:    DSGlobals.p
  5. **
  6. **   Description:    Globals used by DropShell
  7. **
  8. *******************************************************************************
  9. **                       A U T H O R   I D E N T I T Y
  10. *******************************************************************************
  11. **
  12. **    Initials    Name
  13. **    --------    -----------------------------------------------
  14. **    LDR            Leonard Rosenthol
  15. **
  16. *******************************************************************************
  17. **                      R E V I S I O N   H I S T O R Y
  18. *******************************************************************************
  19. **
  20. **      Date        Time    Author    Description
  21. **    --------    -----    ------    ---------------------------------------------
  22. **    11/24/91            LDR        Added some new consts for error handling
  23. **    10/30/91            LDR        Modified USES clause for new include & ifc'ed ThP
  24. **    10/28/91            LDR        Officially renamed DropShell (from QuickShell)
  25. **                                Added a bunch of comments for clarification
  26. **    04/09/91    00:03    LDR        Original Version
  27. **
  28. ******************************************************************************}
  29.  
  30. UNIT DSGlobals;
  31.  
  32. INTERFACE
  33.  
  34. {$IFC THINK_Pascal}
  35. {$ELSEC}
  36.     USES
  37.     { First load standard interface files}
  38.         MemTypes, QuickDraw, 
  39.  
  40.     { Now include the stuff from OSIntf }
  41.         OSIntf, 
  42.  
  43.     { Now Include the stuff from ToolIntf.p }
  44.         ToolIntf, Packages, GestaltEqu, 
  45.  
  46.     { Then any OTHER Toolbox interfaces... }
  47.         Files, Aliases, AppleEvents;
  48. {$ENDC THINK_Pascal}
  49.  
  50.     CONST
  51.         kAppleNum = 128;
  52.         kFileNum = 129;
  53.         
  54.         kErrStringID = 100;
  55.         kCantRunErr = 1;
  56.         kAEVTErr = 2;
  57.         
  58.     VAR
  59.         gDone, gOApped, gHasAppleEvents, gWasEvent: Boolean;
  60.         gEvent: EventRecord;
  61.         gAppleMenu, gFileMenu: MenuHandle;
  62.         gSplashScreen: WindowPtr;
  63.  
  64. IMPLEMENTATION
  65.  
  66. END.
  67.